home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 1.0 for Developers / QuickTime 1.0 for Developers.iso / System Stuff / System 7.0 / 7.0 System Additions / Printing / LaserWriter / LaserWriter.rsrc / STR#_-8153.txt < prev    next >
Encoding:
Text File  |  1991-04-25  |  2.3 KB  |  138 lines
  1. %!PS-TrueTypeFont-^d-^d-1
  2.  
  3.  
  4. 25 dict begin
  5. /FontName /^p def
  6. /Encoding [
  7.  
  8. ] readonly def
  9. /PaintType 0 def
  10.  
  11.  
  12. /fcheckload{{pop}{save 3 dict begin/mystring 2050 string def exch/endstring exch def{currentfile mystring readline not{stop}if endstring eq{exit}if}loop end restore}ifelse}bind def
  13.  
  14.  
  15. userdict/type42known known not{/type42known systemdict/resourcestatus known{42/FontType resourcestatus{pop pop true}{false}ifelse}{false}ifelse def}if
  16.  
  17.  
  18. /truedictknown userdict/TrueDict known{TrueDict dup /initer known 1 index /render known 2 index /imagemaskwrapper known 4 -1 roll /bander known and and and}{false}ifelse def
  19.  
  20.  
  21. %beginsfnt
  22. truedictknown type42known or( %endsfnt)exch fcheckload
  23.  
  24.  
  25. /FontMatrix [1 0 0 1 0 0] def
  26. /FontBBox[^i ^i 1 index div ^i 2 index div ^i 3 index div ^i 5 -1 roll div]cvx def
  27.  
  28.  
  29. /FontType type42known{42}{3}ifelse def
  30. /UniqueID 16#^h def
  31. /sfnts[
  32.  
  33.  
  34.  
  35. ]def
  36.  
  37. /CharStrings ^i dict dup begin
  38.  
  39.  
  40. end readonly def
  41.  
  42.  %endsfnt
  43.  
  44.  
  45.  
  46. %beginsfntBC
  47. truedictknown type42known not and ( %endsfntBC)exch fcheckload
  48.  
  49.  
  50. /TrueState ^i string def
  51. TrueDict begin sfnts save 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt cvi 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt cvi 3 -1 roll restore TrueState initer end
  52.  
  53.  
  54. /BuildChar{exch begin Encoding 1 index get CharStrings dup 2 index known{exch}{exch pop /.notdef}ifelse get dup xcheck{currentdict systemdict begin begin exec end end}
  55.  
  56. {exch pop TrueDict begin /bander load cvlit exch TrueState render end}ifelse end} bind def
  57.  
  58.  
  59.  %endsfntBC
  60.  
  61.  
  62.  
  63. %beginsfntdef
  64. truedictknown type42known or( %endsfntdef)exch fcheckload
  65. currentdict dup/FontName get exch definefont pop
  66.  
  67.  %endsfntdef
  68.  
  69.  
  70.  
  71. %beginType1
  72. truedictknown type42known or not( %endType1)exch fcheckload
  73. /FontMatrix [1 ^i div 0 0 1 ^i div 0 0] def
  74.  
  75.  
  76.  
  77. /FontBBox{^i ^i ^i ^i}def
  78.  
  79.  
  80. /FontType 1 def
  81. /UniqueID 16#^h def
  82. currentdict
  83. currentfile eexec
  84.  
  85.  
  86.  
  87. dup/Private 8 dict dup begin
  88. /RD{string currentfile exch readstring pop}executeonly def
  89. /ND{noaccess def}executeonly def
  90. /NP{noaccess put}executeonly def
  91.  
  92.  
  93. /BlueValues[]def
  94. /MinFeature{16 16}def
  95. /password 5839 def
  96. /Subrs 1 array def
  97. 2 index /CharStrings 
  98.  
  99.  dict dup begin
  100.  
  101.  
  102.  RD 
  103.  
  104.  ND
  105.  
  106.  
  107. /.notdef 8 RD 
  108.  
  109. end
  110. end
  111. readonly put
  112. noaccess put
  113. dup /FontName get exch definefont pop
  114. mark currentfile closefile
  115.  
  116.  
  117. 0000000000000000000000000000000000000000000000000000000000000000
  118.  
  119.  
  120. cleartomark
  121.  
  122.  %endType1
  123.  
  124. end
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.